﻿Public Class NamedCollection

    Public LongName As String
    Public ShortName As String

    Public Sub New(ByVal CollectionName As String)
        MyBase.New()
        LongName = CollectionName

        Members = New SortedList
        MatchingGroups = New SortedList

        ShortName = ADTypeConversion.DNtoSAM(CollectionName)

    End Sub

    Public Sub New()

        Members = New SortedList
        MatchingGroups = New SortedList

    End Sub

    Public Members As SortedList

    Public MatchingGroups As SortedList


End Class
